home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 025a / gsdb25.zip / DB_XPL06.PAS < prev    next >
Pascal/Delphi Source File  |  1990-11-28  |  657b  |  30 lines
  1. program DB_Xpl06;
  2. uses
  3.    CRT,
  4.    DOS,
  5.    GS_KeyI,
  6.    GS_dBFld,
  7.    GS_dBase;
  8. var
  9.    Health  : GS_dBFld_Objt;
  10.  
  11. begin
  12.    ClrScr;
  13.    GoToXY(15,25);
  14.    write('ESC to Abort, F10 for Next, F9 to Delete/Undelete');
  15.    Window(1,1,80,24);
  16.    Health.Init('HEALTH');
  17.    Health.Open;
  18.    Health.Index('FOODNAME');        {Use Index FOODNAME.NDX}
  19.    Health.GetRec(Top_Record);
  20.    while (Health.FieldUpdateScreen) and (not Health.File_EOF) do
  21.    begin
  22.       Health.PutRec(Health.RecNumber);
  23.       if GS_KeyI_Chr = Kbd_PgUp then
  24.          Health.GetRec(Prev_Record)
  25.       else
  26.          Health.GetRec(Next_Record);
  27.    end;
  28.    Health.Close;
  29. end.
  30.